home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
LOGIC Apps
/
Logic-APPLE_II_APPS.iso
/
mac
/
LOGIC Apple II 5.25" Library - ProDOS
/
PRO038B.dsk
/
INIT.bas
next >
Wrap
BASIC Source File
|
2012-02-16
|
8KB
|
275 lines
10 REM INIT
15 HOME : GR
20 FOR F2 = 10 TO 30
22 FOR F3 = 1 TO 30
25 READ E
30 ON E GOTO 35,40,45,50
35 COLOR= 15: GOTO 60
40 COLOR= 12: GOTO 60
45 COLOR= 4: GOTO 60
50 COLOR= 8: GOTO 60
60 PLOT F2,F3
65 NEXT F3
70 NEXT F2
72 PRINT CHR$(4);"BSAVE MAP,A$400,L$400"
75 PRINT : PRINT : PRINT
76 PRINT "PRESS A KEY TO CONTINUE:";: GET X$
100 REM INIT
110 REM MAP, HERE TO 400
160 RESTORE
170 FOR N = 1 TO 600
180 READ HX%(N,1)
190 NEXT N
200 DATA 2,2,2,2,2,2,3,3,3,2,2,2,2,2,2,3,3,3,3,3,3,3,2,2,2,2,2,2,2,2
210 DATA 2,2,1,1,1,2,2,2,2,2,1,1,1,1,1,2,2,2,2,3,3,3,2,1,1,2,3,2,2,2
220 DATA 2,2,1,1,2,3,2,2,2,1,1,1,2,2,2,1,3,4,4,3,3,2,2,1,1,2,2,1,1,2
230 DATA 2,1,1,1,1,3,4,2,1,1,1,2,2,3,2,2,1,3,4,4,4,2,2,2,2,1,2,1,1,2
240 DATA 2,2,1,1,1,1,3,4,3,1,1,2,2,3,3,2,2,1,1,2,2,4,1,1,2,1,1,1,2,2
250 DATA 3,2,2,1,1,2,3,4,4,2,1,2,2,2,3,3,2,2,1,2,2,3,1,1,1,2,2,2,2,2
260 DATA 3,2,2,2,1,1,2,4,3,3,2,1,2,2,3,3,3,2,1,1,1,1,1,2,2,2,2,3,2,2
270 DATA 3,3,2,2,2,1,3,2,2,3,2,1,2,3,3,3,2,2,2,1,1,2,2,3,3,3,4,3,3,2
280 DATA 3,2,2,2,1,1,2,3,4,2,2,2,1,3,3,2,2,2,1,1,1,2,3,4,3,3,4,2,2,2
290 DATA 3,2,2,2,1,1,1,4,4,4,4,2,1,4,3,2,2,1,1,1,2,3,2,2,1,1,2,2,2,2
300 DATA 2,2,2,1,1,1,1,2,2,2,2,2,1,3,4,4,3,2,1,1,1,1,2,2,1,1,1,2,2,2
310 DATA 2,2,2,1,1,1,1,2,2,2,2,2,1,3,4,4,4,2,1,1,1,1,1,2,1,1,2,2,2,3
320 DATA 2,2,3,1,1,1,2,2,2,2,2,3,3,1,2,2,1,1,1,1,2,2,1,1,1,2,2,2,3,3
330 DATA 2,3,3,2,1,1,2,2,2,3,4,4,3,2,1,1,1,1,3,3,3,4,3,2,1,1,2,2,3,3
340 DATA 2,2,4,3,2,1,1,2,2,3,3,4,2,2,2,1,1,1,3,3,4,4,1,1,1,2,2,2,2,3
350 DATA 2,2,2,4,3,1,1,2,2,2,3,3,2,2,1,1,1,1,1,3,3,3,1,1,1,1,2,2,2,2
360 DATA 3,2,2,2,4,1,1,2,2,3,3,3,2,2,1,1,1,2,1,1,3,3,1,1,1,1,1,2,2,2
370 DATA 3,3,2,2,4,4,1,1,2,3,3,2,2,2,1,1,2,2,1,1,3,3,1,1,1,1,1,1,2,2
380 DATA 3,3,3,2,2,2,2,1,1,2,2,3,4,4,3,3,2,2,1,2,2,2,3,2,1,2,3,3,2,2
390 DATA 3,3,3,3,2,2,2,2,2,2,3,4,4,4,3,3,3,2,2,2,2,3,3,3,2,2,3,3,3,2
400 DATA 3,3,3,3,2,2,2,2,2,3,4,4,4,4,3,3,2,2,2,2,3,3,3,2,2,2,2,2,3,3
410 REM INIT DEPLOYMENTS
420 IF CT < >0 THEN GOTO 900
430 PRINT
440 INPUT "ENTER SCENARIO NUMBER";SC
450 ON SC GOTO 470,900,1340
460 GOTO 430
470 REM SCENARIO #1
480 HX%(31,2) = 1
490 PA(1,4) = 31
500 HX%(61,2) = 2
510 PA(2,4) = 61
520 HX%(91,2) = 3
530 PA(3,4) = 91
540 HX%(121,2) = 4
550 PA(4,4) = 121
560 HX%(151,2) = 5
570 PA(5,4) = 151
580 HX%(181,2) = 6
590 PA(6,4) = 181
600 HX%(211,2) = 7
610 PA(7,4) = 211
620 HX%(241,2) = 8
630 PA(8,4) = 241
640 HX%(271,2) = 9
650 PA(9,4) = 271
660 HX%(301,2) = 10
670 PA(10,4) = 301
680 REM SECOND PLAYER'S UNITS
690 HX%(5,2) = 101
700 PB(1,4) = 5
710 HX%(35,2) = 102
720 PB(2,4) = 35
730 HX%(65,2) = 103
740 PB(3,4) = 65
750 HX%(95,2) = 104
760 PB(4,4) = 95
770 HX%(125,2) = 105
780 PB(5,4) = 125
790 HX%(155,2) = 106
800 PB(6,4) = 155
810 HX%(185,2) = 107
820 PB(7,4) = 185
830 HX%(215,2) = 108
840 PB(8,4) = 215
850 HX%(245,2) = 109
860 PB(9,4) = 245
870 HX%(275,2) = 110
880 PB(10,4) = 275
890 GOTO 1770
900 SC = 2: REM SCENARIO #2
910 HX%(10,2) = 1
920 PA(1,4) = 10
930 HX%(11,2) = 2
940 PA(2,4) = 11
950 HX%(12,2) = 3
960 PA(3,4) = 12
970 HX%(13,2) = 4
980 PA(4,4) = 13
990 HX%(14,2) = 5
1000 PA(5,4) = 14
1010 HX%(15,2) = 6
1020 PA(6,4) = 15
1030 HX%(16,2) = 7
1040 PA(7,4) = 16
1050 HX%(17,2) = 8
1060 PA(8,4) = 17
1070 HX%(18,2) = 9
1080 PA(9,4) = 18
1090 HX%(19,2) = 10
1100 PA(10,4) = 19
1110 IF CT < >0 THEN GOTO 1920
1120 REM 2ND PLAYER
1130 HX%(580,2) = 101
1140 PB(1,4) = 580
1150 HX%(581,2) = 102
1160 PB(2,4) = 581
1170 HX%(582,2) = 103
1180 PB(3,4) = 582
1190 HX%(583,2) = 104
1200 PB(4,4) = 583
1210 HX%(584,2) = 105
1220 PB(5,4) = 584
1230 HX%(585,2) = 106
1240 PB(6,4) = 585
1250 HX%(586,2) = 107
1260 PB(7,4) = 586
1270 HX%(587,2) = 108
1280 PB(8,4) = 587
1290 HX%(588,2) = 109
1300 PB(9,4) = 588
1310 HX%(589,2) = 110
1320 PB(10,4) = 589
1330 GOTO 1770
1340 REM #3
1350 HX%(255,2) = 1
1360 PA(1,4) = 255
1370 HX%(285,2) = 2
1380 PA(2,4) = 285
1390 HX%(315,2) = 3
1400 PA(3,4) = 315
1410 HX%(256,2) = 4
1420 PA(4,4) = 256
1430 HX%(316,2) = 5
1440 PA(5,4) = 316
1450 HX%(257,2) = 6
1460 PA(6,4) = 257
1470 HX%(317,2) = 7
1480 PA(7,4) = 317
1490 HX%(258,2) = 8
1500 PA(8,4) = 258
1510 HX%(288,2) = 9
1520 PA(9,4) = 288
1530 HX%(318,2) = 10
1540 PA(10,4) = 318
1550 REM 2ND PLAYER
1560 HX%(282,2) = 101
1570 PB(1,4) = 282
1580 HX%(343,2) = 102
1590 PB(2,4) = 343
1600 HX%(375,2) = 103
1610 PB(3,4) = 375
1620 HX%(378,2) = 104
1630 PB(4,4) = 378
1640 HX%(350,2) = 105
1650 PB(5,4) = 350
1660 HX%(291,2) = 106
1670 PB(6,4) = 291
1680 HX%(230,2) = 107
1690 PB(7,4) = 230
1700 HX%(198,2) = 108
1710 PB(8,4) = 198
1720 HX%(195,2) = 109
1730 PB(9,4) = 195
1740 HX%(223,2) = 110
1750 PB(10,4) = 223
1770 REM RETURN TO MAIN PROG
1780 HX%(0,1) = 4: REM OFF MAP
1790 GO = 4
1800 POKE 103,1: POKE 104,24: POKE 6144,0
1810 IF AUX THEN PRINT D$;"CHAIN /RAM/PLATOON."
1820 PRINT D$;"CHAIN PLATOON."
1920 TEXT : HOME
1930 REM SELECT COMPUTER FORCES
1940 PRINT "HOW LARGE AN ENEMY FORCE DO YOU EXPECT"
1950 PRINT "TO ENGAGE?"
1960 PRINT
1970 PRINT "1 = INFANTRY SQUAD": PRINT
1980 PRINT "2 = ARTILLERY BATTERY": PRINT
1990 PRINT "3 = TANK PLATOON": PRINT
2000 PRINT "4 = TANK COMPANY": PRINT
2010 INPUT "ENTER THE NUMBER: ";TM
2020 ON TM GOTO 2040,2090,2130,2190
2030 GOTO 2010
2040 REM INF SQUAD
2050 FOR E = 1 TO 8: GOSUB 2730: NEXT E: REM INF
2060 E = 9: GOSUB 2790: REM HQ
2070 E = 10: GOSUB 2770: REM APC
2080 GOTO 2250 REM LOC
2090 REM ARTY BATT
2100 FOR E = 1 TO 7: GOSUB 2730: NEXT E: REM INF
2110 E = 8: GOSUB 2810:E = 9: GOSUB 2810:E = 10: GOSUB 2810
2120 GOTO 2380: REM LOC
2130 REM TANK PLATOON
2140 E = 1: GOSUB 2790
2150 E = 2: GOSUB 2730:E = 3: GOSUB 2730:E = 4: GOSUB 2730
2160 E = 5: GOSUB 2770:E = 6: GOSUB 2770
2170 FOR E = 7 TO 10: GOSUB 2750: NEXT E
2180 GOTO 2500: REM LOC
2190 REM TANK CO
2200 E = 1: GOSUB 2770:E = 2: GOSUB 2770
2210 FOR E = 3 TO 8: GOSUB 2750: NEXT E
2220 E = 9: GOSUB 2810:E = 10: GOSUB 2810
2230 GOTO 2620: REM LOC
2240 REM INF SQUAD LOC
2250 E = 101:F = 554: GOSUB 2360
2260 E = 102:F = 584: GOSUB 2360
2270 E = 103:F = 555: GOSUB 2360
2280 E = 104:F = 586: GOSUB 2360
2290 E = 105:F = 556: GOSUB 2360
2300 E = 106:F = 583: GOSUB 2360
2310 E = 107:F = 587: GOSUB 2360
2320 E = 108:F = 557: GOSUB 2360
2330 E = 109:F = 588: GOSUB 2360
2340 E = 110:F = 585: GOSUB 2360
2350 GOTO 1770: REM EXIT
2360 PB(E -100,4) = F:HX%(F,2) = E: RETURN
2370 REM ARTY BATT LOC
2380 E = 101:F = 554: GOSUB 2360
2390 E = 102:F = 555: GOSUB 2360
2400 E = 103:F = 556: GOSUB 2360
2410 E = 104:F = 557: GOSUB 2360
2420 E = 105:F = 553: GOSUB 2360
2430 E = 106:F = 587: GOSUB 2360
2440 E = 107:F = 588: GOSUB 2360
2450 E = 108:F = 584: GOSUB 2360
2460 E = 109:F = 585: GOSUB 2360
2470 E = 110:F = 586: GOSUB 2360
2480 GOTO 1770: REM EXIT
2490 REM TANL PLATOON LOC
2500 E = 101:F = 584: GOSUB 2360
2510 E = 102:F = 557: GOSUB 2360
2520 E = 103:F = 587: GOSUB 2360
2530 E = 104:F = 555: GOSUB 2360
2540 E = 105:F = 585: GOSUB 2360
2550 E = 106:F = 586: GOSUB 2360
2560 E = 107:F = 583: GOSUB 2360
2570 E = 108:F = 554: GOSUB 2360
2580 E = 109:F = 556: GOSUB 2360
2590 E = 110:F = 588: GOSUB 2360
2600 GOTO 1770: REM EXIT
2610 REM TANK CO LOC
2620 E = 101:F = 554: GOSUB 2360
2630 E = 102:F = 556: GOSUB 2360
2640 E = 103:F = 583: GOSUB 2360
2650 E = 104:F = 555: GOSUB 2360
2660 E = 105:F = 557: GOSUB 2360
2670 E = 106:F = 586: GOSUB 2360
2680 E = 107:F = 587: GOSUB 2360
2690 E = 108:F = 588: GOSUB 2360
2700 E = 109:F = 584: GOSUB 2360
2710 E = 110:F = 585: GOSUB 2360
2720 GOTO 1770: REM EXIT
2730 PB(E,0) = E +100:PB(E,1) = 1:PB(E,2) = 2:PB(E,3) = 2:PB(E,5) = 0:PB(E,6) = 1:PB(E,7) = 20:PB(E,8) = 60:PB(E,9) = 0:PB(E,10) = 1
2740 RETURN
2750 PB(E,0) = E +100:PB(E,1) = 1:PB(E,2) = 2:PB(E,3) = 6:PB(E,5) = 0:PB(E,6) = 2:PB(E,7) = 1:PB(E,8) = 2:PB(E,9) = 20:PB(E,10) = 20
2760 RETURN
2770 PB(E,0) = E +100:PB(E,1) = 1:PB(E,2) = 2:PB(E,3) = 6:PB(E,5) = 0:PB(E,6) = 3:PB(E,7) = 1:PB(6,8) = 0:PB(E,9) = 0:PB(E,10) = 0
2780 RETURN
2790 PB(E,0) = E +100:PB(E,1) = 1:PB(E,2) = 6:PB(E,3) = 2:PB(E,5) = 0:PB(E,6) = 4:PB(E,7) = 20:PB(E,8) = 60:PB(E,9) = 0:PB(E,10) = 0
2800 RETURN
2810 PB(E,0) = E +100:PB(E,1) = 1:PB(E,2) = 2:PB(E,3) = 6:PB(E,5) = 0:PB(E,6) = 5:PB(E,7) = 0:PB(E,8) = 2:PB(E,9) = 40:PB(E,10) = 40
2820 RETURN